extern int sswap_(integer *n, real *sx, integer *incx, real *sy, integer *incy);
